#open BUFF,"file_final_ucsc" or die "no file found\n";
#open WRBUFF,">file_final_ucsc_new";
open BUFF,"file_final_ucsc_new" or die "no file found\n";
open WRBUFF,">file_final_ucsc_new_new";
while($line=<BUFF>)
{
	print WRBUFF $line;
	chomp($line);
	@array = split(/\t/,$line);
	chomp($array[0]);
	$hash{$array[0]} = 1; 
}

#open  BUFF,"file_final_ucsc_pisupport" or die "no file found file_final_ucsc_pisupport\n";
open  BUFF,"file_final_ucsc_new_affy" or die "no file found file_final_ucsc_new_affy\n";
while($line=<BUFF>)
{
	chomp($line);
	@array = split(/\t/,$line);
	chomp($array[0]);
	if(!(exists($hash{$array[0]})))
	{
		print WRBUFF $line."\n";
	}
}
